home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / turtle-demo 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  388 b   |  16 lines
  1. 1 rem turtle-demo: 'drachen'
  2. 2 rem n. heusler 11.91
  3. 3 :
  4. 10 sys49152
  5. 20 !init
  6. 30 input"wert l   12[157][157][157][157]";l:ifl>12then30
  7. 40 !graphics:!pen0:!walk32:!turnl90:!walk80:!pen1
  8. 50 gosub100
  9. 60 poke198,.:wait198,1:poke198,.:!text:end
  10. 100 ifl=0then:!walk3:goto300
  11. 120 ifl<0then240
  12. 140 !pushl:l= l-1:gosub100:!pulll:!turnl90:!pushl:l=1-l:gosub100:!pulll
  13. 190 goto300
  14. 240 !pushl:l=-1-l:gosub100:!pulll:!turnr90:!pushl:l=1+l:gosub100:!pulll
  15. 300 return
  16.